﻿'Public Class CadastroParticulariedades

'    Dim objBBL As New BLLPaSala
'    Dim codigo As Integer
'    Dim valida As Integer
'    Dim backup As String
'    Dim recurso As Integer
'    Dim pdia As String
'    Dim psala As String
'    Dim pdiasala As String
'    Public parametro As String
'    Dim tabItens As New DataTable
'    Dim tabItens2 As New DataTable
'    Dim tabItens3 As New DataTable
'    'o temporizador responsável por o deslize
'    Private WithEvents Deslizador As New Timer
'    'o valor da posição do painel quando recolhido
'    Private PosicaoRecolhida As Integer
'    'o valor da posição do painel quando extendido
'    Private PosicaoEstendida As Integer
'    'para determinar se o painel está aberto ou fechado
'    Private PainelAberto As Boolean = False
'    'a velocidade com que o painel se move
'    '(na verdade é a velocidade com que a distância restante se atenua)
'    Private Velocidade As Double = 0.4

'#Region "Atualizações"
'    Sub modoinicial()
'        Me.Width = 466
'        Me.Height = 516
'        gbcadastrar.Enabled = False
'        gblocalizar.Enabled = True
'        bexcluir.Enabled = False
'        dglocalizar.DataSource = Nothing
'        dgcadastro.DataSource = Nothing
'        dglocalizar.Enabled = False
'        txtlocalizar.Text = ""
'        Me.cblocalizar.SelectedIndex = 0 'faz o combobox iniciar sem nenhum valor
'        limpa()
'    End Sub
'#Region " Funções do Painel"
'    Function Dia_Sala(ByVal dia As String, ByVal sala As String) As String
'        Try
'            For Each linha As DataRow In tabItens2.Rows
'                Dim d As String = linha("par_dia").ToString
'                Dim s As String = linha("sal_sala").ToString
'                If d = dia And s = sala Then
'                    pdiasala = "S"
'                    Return pdiasala
'                Else
'                    pdiasala = "P"
'                End If
'            Next

'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally

'        End Try

'        Return pdiasala
'    End Function
'    Function PrimeiraDia(ByVal dia As String) As String
'        Dim dt As DataTable
'        Try

'            For Each linha As DataRow In tabItens2.Rows
'                Dim d As String = linha("par_dia").ToString
'                If d = dia Then
'                    pdia = "S"
'                    Return pdia
'                Else
'                    pdia = "P"
'                End If

'            Next


'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            dt = Nothing
'        End Try
'        Return pdia
'    End Function
'    Function PrimeiraSala(ByVal sala As String) As String
'        Dim dt As DataTable
'        Try
'            For Each linha As DataRow In tabItens2.Rows
'                Dim s As String = linha("sal_sala").ToString
'                If s = sala Then
'                    psala = "S"
'                    Return psala
'                Else
'                    psala = "P"
'                End If
'            Next
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            dt = Nothing
'        End Try
'        Return psala
'    End Function
'    Sub Checkbox(ByVal ret As Boolean)
'        cbsegunda.Checked = ret
'        cbterca.Checked = ret
'        cbquarta.Checked = ret
'        cbquinta.Checked = ret
'        cbsexta.Checked = ret
'        cbsabado.Checked = ret
'        cbdomingo.Checked = ret
'    End Sub
'    Sub Carrega_Selecao(ByVal nome As String)
'        Dim linha As DataRow
'        Dim linha2 As DataRow
'        linha = tabItens.NewRow
'        linha("sala") = txtnome.Text
'        linha("motivo") = txtobservacao.Text
'        linha("horainicio") = dtp1.Text
'        linha("horafinal") = dtp2.Text
'        linha("dia") = nome
'        linha("Código") = txtcodigo.Text
'        linha("Descricao") = txtdescricao.Text
'        tabItens.Rows.Add(linha)
'        tabItens.AcceptChanges()
'        '
'        '
'        linha2 = tabItens2.NewRow
'        linha2("sal_sala") = txtnome.Text
'        linha2("Par_motivo") = txtobservacao.Text
'        linha2("par_horainicio") = dtp1.Text
'        linha2("par_horafinal") = dtp2.Text
'        linha2("par_dia") = nome
'        tabItens2.Rows.Add(linha2)
'        tabItens2.AcceptChanges()
'    End Sub
'    Sub carrega_gridcadastro()
'        tabItens = New DataTable
'        'adicionei colunas
'        'cod_produto, decricao_produto, qtde, valor * qtde
'        tabItens.Columns.Add("sala", GetType(String))
'        tabItens.Columns.Add("horainicio", GetType(String))
'        tabItens.Columns.Add("horafinal", GetType(String))
'        tabItens.Columns.Add("dia", GetType(String))
'        tabItens.Columns.Add("motivo", GetType(String))
'        tabItens.Columns.Add("Código", GetType(String))
'        tabItens.Columns.Add("Descricao", GetType(String))
'        ' tabItens.Columns.Add("pec_dtadesao", GetType(Date))
'        'vinculei datagridview
'        dgcadastro.DataSource = tabItens
'        dgcadastro.Columns("sala").HeaderText = "Sala"
'        dgcadastro.Columns("sala").Width = 50
'        dgcadastro.Columns("horainicio").HeaderText = "H.Inicial"
'        dgcadastro.Columns("horainicio").Width = 50
'        dgcadastro.Columns("horafinal").HeaderText = "H.Final"
'        dgcadastro.Columns("horafinal").Width = 50
'        dgcadastro.Columns("dia").HeaderText = "Dia"
'        dgcadastro.Columns("motivo").HeaderText = "Motivo"
'        dgcadastro.Columns("motivo").Width = 110
'        dgcadastro.Columns("Código").HeaderText = "Código sala"
'        dgcadastro.Columns("Código").Width = 60
'        dgcadastro.Columns("Descricao").HeaderText = "Desc. sala"
'        dgcadastro.Columns("Descricao").Width = 100
'    End Sub
'    Sub carrega_gridbanco()
'        tabItens3 = New DataTable
'        Dim dt As DataTable
'        Dim i As Integer = 0
'        'adicionei colunas
'        'cod_produto, decricao_produto, qtde, valor * qtde
'        tabItens3.Columns.Add("sala", GetType(String))
'        tabItens3.Columns.Add("horainicio", GetType(String))
'        tabItens3.Columns.Add("horafinal", GetType(String))
'        tabItens3.Columns.Add("dia", GetType(String))
'        tabItens3.Columns.Add("motivo", GetType(String))
'        ' tabItens.Columns.Add("pec_dtadesao", GetType(Date))
'        'vinculei datagridview
'        dgbanco.DataSource = tabItens3
'        dgbanco.Columns("sala").HeaderText = "Sala"
'        dgbanco.Columns("sala").Width = 50
'        dgbanco.Columns("horainicio").HeaderText = "H.Inicial"
'        dgbanco.Columns("horainicio").Width = 70
'        dgbanco.Columns("horafinal").HeaderText = "H.Final"
'        dgbanco.Columns("horafinal").Width = 70
'        dgbanco.Columns("dia").HeaderText = "Dia"
'        dgbanco.Columns("motivo").HeaderText = "Motivo"
'        dgbanco.Columns("motivo").Width = 110
'        Try
'            If txtnome.Text <> "" Then
'                dt = objBBL.Localizartudo(txtnome.Text)
'                If dt.Rows.Count <> 0 Then
'                    For Each linha As DataRow In dt.Rows
'                        linha = tabItens3.NewRow
'                        linha("sala") = dt.Rows(i)("sal_sala").ToString()
'                        linha("motivo") = dt.Rows(i)("par_motivo").ToString()
'                        linha("horainicio") = dt.Rows(i)("par_horainicio").ToString()
'                        linha("horafinal") = dt.Rows(i)("par_horafinal").ToString()
'                        linha("dia") = dt.Rows(i)("par_dia").ToString()
'                        tabItens3.Rows.Add(linha)
'                        tabItens3.AcceptChanges()
'                        i = i + 1
'                    Next
'                    i = 0
'                Else
'                    dgbanco.Columns.Clear()
'                End If
'            End If
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            dt = Nothing
'        End Try
'    End Sub
'    Sub carrega_grid2() 'carrega a grid de valdiação de horarios
'        tabItens2 = New DataTable
'        Dim dt As DataTable
'        Dim i As Integer = 0
'        'adicionei colunas
'        'cod_produto, decricao_produto, qtde, valor * qtde
'        tabItens2.Columns.Add("sal_sala", GetType(String))
'        tabItens2.Columns.Add("par_horainicio", GetType(String))
'        tabItens2.Columns.Add("par_horafinal", GetType(String))
'        tabItens2.Columns.Add("par_dia", GetType(String))
'        tabItens2.Columns.Add("par_motivo", GetType(String))

'        ' tabItens.Columns.Add("pec_dtadesao", GetType(Date))
'        'vinculei datagridview
'        Try

'            dt = objBBL.Localizartudo()
'            If dt.Rows.Count <> 0 Then
'                For Each linha As DataRow In dt.Rows
'                    linha = tabItens2.NewRow
'                    linha("sal_sala") = dt.Rows(i)("sal_sala").ToString()
'                    linha("par_motivo") = dt.Rows(i)("par_motivo").ToString()
'                    linha("par_horainicio") = dt.Rows(i)("par_horainicio").ToString()
'                    linha("par_horafinal") = dt.Rows(i)("par_horafinal").ToString()
'                    linha("par_dia") = dt.Rows(i)("par_dia").ToString()
'                    tabItens2.Rows.Add(linha)
'                    tabItens2.AcceptChanges()
'                    i = i + 1
'                Next
'                i = 0
'            End If
'            If tabItens.Rows.Count <> 0 Then
'                Dim linha As DataRow
'                linha = tabItens2.NewRow
'                For Each linha2 As DataRow In tabItens.Rows
'                    linha = tabItens2.NewRow
'                    linha("sal_sala") = linha2("sala").ToString
'                    linha("par_motivo") = linha2("motivo").ToString
'                    linha("par_horainicio") = linha2("horainicio").ToString
'                    linha("par_horafinal") = linha2("horafinal").ToString
'                    linha("par_dia") = linha2("dia").ToString
'                    tabItens2.Rows.Add(linha)
'                    tabItens2.AcceptChanges()
'                Next
'            End If

'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            dt = Nothing
'        End Try

'    End Sub
'    Sub ModoDeslizar()
'        'definimos o tamanho da form
'        Me.Size = New Size(903, 516)
'        'definimos o tamanho dos paineis
'        Panel1.Size = New Size(457, 700)
'        'preparamos o painel separador para apresentar uma imagem   
'        'preparamos o painel principal para que o seu movimento se note
'        Panel1.BorderStyle = BorderStyle.FixedSingle
'        'definimos os valores de funcionamento inicial do temporizador
'        Deslizador.Interval = 1
'        Deslizador.Enabled = False
'        'definimos os valores das posições garantidas
'        PosicaoRecolhida = 0 - Panel1.Width
'        PosicaoEstendida = 0
'        'adicionamos tudo ao form
'        'ajustamos as posições definitivas dos paineis
'        Panel1.Top = 1
'        Panel1.Left = 0 - Panel1.Width
'        AbertoFechado()
'    End Sub
'    Sub AbertoFechado()
'        'se o painel estiver aberto, marca como fechado
'        If PainelAberto = True Then
'            'trocamos a posição do painel para fechado
'            PainelAberto = False
'            'mas se o painel estiver fechado, marca como aberto
'        ElseIf PainelAberto = False Then
'            'trocamos a posição do painel para aberto
'            PainelAberto = True
'        End If
'        'e por fim, activamos o temporizador para validar as novas ordens de posição
'        Deslizador.Enabled = True

'    End Sub
'    Function ValidaHorario(ByVal horainicio As DateTime, ByVal horafinal As DateTime, ByVal dia As String, ByVal sala As String) As Integer
'        For Each linha As DataRow In tabItens2.Rows
'            Dim ret As String
'            Dim hi As DateTime = linha("par_horainicio").ToString
'            Dim hf As DateTime = linha("par_horafinal").ToString
'            Dim d As String = linha("par_dia").ToString
'            Dim s As String = linha("sal_sala").ToString
'            If s = sala Then
'                ret = Dia_Sala(d, s)
'                If ret = "S" Then
'                    If d = dia Then
'                        If FormatDateTime(horainicio, vbShortTime) <= FormatDateTime(hi, vbShortTime) Then 'se o horario for menor que o inicial ou seja estiver antes
'                            If FormatDateTime(horafinal, vbShortTime) <= FormatDateTime(hi, vbShortTime) Then 'se horario final vai ser menor que o incial paa que nao grave no meio
'                                recurso = 0
'                            Else
'                                'MessageBox.Show("horafinal está entre hora inicio e fim")
'                                recurso = 1
'                            End If
'                            If (FormatDateTime(horainicio, vbShortTime) >= FormatDateTime(hi, vbShortTime)) And FormatDateTime(horainicio, vbShortTime) <= FormatDateTime(hf, vbShortTime) Then 'verifica se esta no meio dos dois
'                                recurso = 1
'                                'MessageBox.Show("esta entre")
'                            End If
'                        Else
'                            If FormatDateTime(horainicio, vbShortTime) >= FormatDateTime(hf, vbShortTime) Then 'verifica se é maior do que o horario inserido lah
'                                recurso = 0
'                            Else
'                                'MessageBox.Show("Hora de Inicio esta no meio")
'                                recurso = 1
'                            End If
'                        End If
'                    End If
'                Else
'                    recurso = 0
'                End If
'            End If
'        Next
'        Return recurso
'    End Function
'#End Region
'    Sub modo_cadastro()
'        gblocalizar.Enabled = False
'        gbcadastrar.Enabled = True
'        'balterar2.Enabled = False
'        dglocalizar.DataSource = Nothing
'        dglocalizar.Enabled = False
'        dglocalizar.Columns.Clear()
'        cblocalizar.SelectedIndex = 0
'        ModoDeslizar()
'        carregacombo()
'        carrega_gridcadastro()
'        carrega_grid2()
'        'CarregaSala(cbsala.SelectedValue)
'        carrega_gridbanco()
'        Me.Width = 902
'    End Sub
'    Sub depois_cadastro()
'        gblocalizar.Enabled = True
'        gbcadastrar.Enabled = False
'        bexcluir.Enabled = False
'        ModoDeslizar()
'        limpa()
'        Me.Width = 466
'        Me.Height = 516

'    End Sub
'    Sub limpa()
'        txtcodigo.Text = ""
'        txtnome.Text = ""
'        txtbloco.Text = ""
'        txtobservacao.Text = ""
'        txtlocalizar.Text = ""
'        cblocalizar.SelectedIndex = 0
'        Checkbox(False)
'        dgcadastro.Columns.Clear()
'        dglocalizar.Columns.Clear()
'        tabItens2 = Nothing
'    End Sub
'    Sub carrega_propriedades()
'    End Sub
'    Sub modo_localizar()
'        Me.cblocalizar.SelectedIndex = 0 'faz o combobox iniciar sem nenhum valor
'        bexcluir.Enabled = True
'    End Sub
'    Sub carregacombo()
'        '  objconAgenda.preencheCombo(cbsala, "gen_sala", "sal_codigo", "sal_sala", "", "sal_sala")
'    End Sub
'    Sub CarregaSala(ByVal cod As Integer)
'        Dim tab As DataTable
'        tab = objBBL.localizar(cod)
'        txtcodigo.Text = cod
'        txtnome.Text = tab.Rows(0)("sal_sala").ToString()
'        txtdescricao.Text = tab.Rows(0)("sal_descricao").ToString()
'        txtbloco.Text = tab.Rows(0)("sal_bloco").ToString()
'    End Sub
'#End Region

'    Private Sub bvoltar_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bvoltar.Click
'        Me.Close()
'    End Sub
'    Private Sub bnovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnovo.Click
'        modo_cadastro()
'        dgbanco.ReadOnly = True
'        dgcadastro.ReadOnly = True

'    End Sub

'    Private Sub bcadastrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcadastrar.Click
'        Try
'            For Each linha As DataRow In tabItens.Rows
'                objBBL.psala = linha("sala").ToString
'                objBBL.phinicio = linha("horainicio").ToString
'                objBBL.phfinal = linha("horafinal").ToString
'                objBBL.pdia = linha("dia")
'                objBBL.pmotivo = linha("motivo")
'                objBBL.pcodsala = linha("Código")
'                objBBL.pdescricao = linha("Descricao")
'                objBBL.inserir()
'                MsgBox("Particularidade da sala inseridos com  sucesso", MsgBoxStyle.Information)
'            Next
'            carrega_grid2()
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            limpa()
'        End Try
'    End Sub

'    Private Sub blocalizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blocalizar.Click
'        Try
'            Dim retorno As String = ""
'            If txtlocalizar.Text <> "" Then 'verifica se não existe nenhum valor
'                dglocalizar.Enabled = True ' ativa o datagrid
'                dglocalizar.DataSource = objBBL.localizar(txtlocalizar.Text) ' o datagrid vai receber o valor da datatable
'                If dglocalizar.Rows.Count <> 1 Then 'verificar se encontrou ou nao algum valor
'                    dglocalizar.Columns(0).HeaderText = "Cod."
'                    dglocalizar.Columns(0).Width = 50
'                    dglocalizar.Columns(1).HeaderText = "Descrição"
'                    dglocalizar.Columns(1).Width = 100
'                    dglocalizar.Columns(2).HeaderText = "H.Inicio" ' define o nome da coluna
'                    dglocalizar.Columns(2).Width = 60 'define a largura da coluna
'                    dglocalizar.Columns(3).HeaderText = "H.Final"
'                    dglocalizar.Columns(3).Width = 70
'                    dglocalizar.Columns(4).HeaderText = "Dia"
'                    dglocalizar.Columns(4).Width = 100
'                    dglocalizar.Columns(5).HeaderText = "Motivo"
'                    dglocalizar.Columns(5).Width = 100
'                    modo_localizar()
'                Else
'                    dglocalizar.Columns.Clear()
'                    modoinicial()
'                    txtlocalizar.Enabled = True
'                    MessageBox.Show("Sala não localizado")
'                End If
'            Else
'                MessageBox.Show("Campo está vazio") ' caso o usuario nao digitar nada
'                modoinicial()
'            End If
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally

'        End Try
'    End Sub

'    Private Sub bcancelar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bcancelar2.Click
'        depois_cadastro()
'    End Sub
'    Private Sub balterar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'        Try
'            Dim ret As Boolean
'            If (MessageBox.Show("Confirma Alteração ?", "", MessageBoxButtons.YesNo) = vbYes) Then 'ver se realmente vai querer alterar
'                carrega_propriedades() 'carrega todos campos
'                objBBL.pcodigo = codigo 'carrega o codigo
'                'ret = objBBL.alterar() 'executa o metodo alterar  retornando se foi concluido ou nao
'                If ret = True Then
'                    MessageBox.Show("Alteração Realizada com sucesso")
'                Else
'                    MessageBox.Show("Alteração não foi Realizada")
'                End If
'            End If
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        Finally
'            limpa()
'            modoinicial()
'        End Try
'    End Sub

'    Private Sub bexcluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bexcluir.Click
'        Try
'            If MessageBox.Show("Confirma Exclusão ?", "", MessageBoxButtons.YesNo) = vbYes Then
'                Dim ret As Boolean
'                Dim cod As Integer
'                Dim indice As Integer
'                indice = -1
'                For Each linha As DataGridViewRow In dglocalizar.SelectedRows 'acha a linha que o susario selecionou
'                    If (Not linha.Cells("par_codigo") Is Nothing) Then 'mandei verificar pelo campo do codigo
'                        indice = linha.Index 'quando acha linha ele guarda a posiçao
'                    End If
'                Next
'                If (indice <> -1) Then
'                    cod = dglocalizar.Rows(indice).Cells("par_codigo").Value 'atribui codigo da datatable
'                    ret = objBBL.excluir(cod)
'                End If

'                If (ret = True) Then
'                    MessageBox.Show("Particularidade Excluida com sucesso")
'                Else
'                    MessageBox.Show("Particularidade Não pode ser excluido")
'                End If
'                limpa()
'                modoinicial()
'            End If
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        End Try
'    End Sub

'    Private Sub txtlocalizar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtlocalizar.TextChanged
'        Try
'            If txtlocalizar.Text <> "" Then
'                If cblocalizar.SelectedIndex = 1 Then
'                    valida = txtlocalizar.Text
'                    backup = txtlocalizar.Text
'                End If
'            End If
'        Catch
'            txtlocalizar.Text = backup
'        End Try
'    End Sub


'    Private Sub CadastroSala_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'        modoinicial()
'    End Sub

'    Private Sub Deslizador_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Deslizador.Tick
'        'declaramos uma variável que possa lidar com valores decimais
'        Dim TempX As Double = Panel1.Left

'        'se o painel estiver definido para aberto e residir em qualquer ponto antes do seu máximo
'        'significa que temos de abri-lo até ao máximo
'        If PainelAberto = True And Panel1.Left < PosicaoEstendida Then
'            'calculamos o novo número para a posição, sem arredondar (e isto é importante)
'            TempX += Math.Ceiling((PosicaoEstendida - Panel1.Left) * Math.Abs(Velocidade))

'            'se o valor calculado estiver para além do valor máximo...
'            If TempX >= PosicaoEstendida Then
'                'desligamos o temporizador para impedir mais movimento
'                Deslizador.Enabled = False
'                '...normalizamos o valor para o máximo
'                TempX = PosicaoEstendida
'            End If
'            'depois do cálculo estar feito e validado, atribuímos o novo valor à posição do painel
'            Panel1.Left = TempX
'            'mandamos recolocar o separador, chamando o método
'        End If

'        'se o painel estiver definido para fechado e residir em qualquer ponto depois do seu mínimo
'        'significa que temos de fechá-lo até ao mínimo
'        If PainelAberto = False And Panel1.Left > PosicaoRecolhida Then
'            'calculamos o novo número para a posição, sem arredondar (e isto é importante)
'            TempX -= Math.Ceiling((Math.Abs(PosicaoRecolhida) - Math.Abs(Panel1.Left)) * Math.Abs(Velocidade))

'            'se o valor calculado estiver para aquém do valor mínimo...
'            If TempX <= PosicaoRecolhida Then
'                'desligamos o temporizador para impedir mais movimento
'                Deslizador.Enabled = False
'                '...normalizamos o valor para o mínimo
'                TempX = PosicaoRecolhida
'            End If

'            'depois do cálculo estar feito e validado, atribuímos o novo valor à posição do painel
'            Panel1.Left = TempX

'            'mandamos recolocar o separador, chamando o método
'        End If
'    End Sub

'    Private Sub badicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles badicionar.Click
'        Try
'            '"S"= segunda vez de acesso
'            '"P"= primeira vez de acesso
'            Dim dt As DataTable
'            Dim selecionado As String = ""
'            Dim horainicio As DateTime = dtp1.Text
'            Dim horafinal As DateTime = dtp2.Text
'            dt = objBBL.localizar()
'            If FormatDateTime(horainicio, vbShortTime) >= FormatDateTime(horafinal, vbShortTime) Then
'                MessageBox.Show("Hora de Ínicio Menor/Igual que Tempo Final")
'            Else
'                If cbsegunda.Checked Then ' se está checado
'                    If tabItens2.Rows.Count <> 0 Then 'verifica se a datagrid esta vazia
'                        'se nao tiver vazia verifica se a sala jah foi inserida
'                        psala = PrimeiraSala(txtnome.Text) 'retorna "S"= segunda vez ou seja jah foi cadastrado a sala
'                        If psala = "S" Then 'se for a segunda vez entao
'                            'verifica se jah foi inserido uma vez o dia
'                            pdia = PrimeiraDia(cbsegunda.Text) 'retorna"S"=segunda vez ou seja jah foi inserido
'                            If pdia = "S" Then 'se jah foi inserido
'                                'vai validar a hora
'                                ValidaHorario(horainicio, horafinal, cbsegunda.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then 'se o recurso =0 entao  significa que nao existe nada parecido,ou seja, pode inserir
'                                    Carrega_Selecao(cbsegunda.Text) 'carrega os capos na datagrid
'                                Else ' se o retorno do recurso foi diferente de 0
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbsegunda.Text) ' significa que houve algum conflito e nao pode inserir
'                                End If 'final do if do valida hora
'                            Else 'se o dia nao foi inserido ainda entao e a primeira vez ter dizer pode inserir
'                                'como nao existe um cadastro ainda daquele dia  enato pode inserir
'                                Carrega_Selecao(cbsegunda.Text) 'carrega os campos na data grid
'                            End If 'final do if do dia
'                        Else 'se a sala ainda nao foi inserida é a primeira vez entao deixa inserir
'                            'como nao existe um cadastro ainda daquela sala entao pode inserir
'                            Carrega_Selecao(cbsegunda.Text) 'carrega os campos na data grid
'                        End If 'final do valida sala
'                    Else 'caso nao haja nada inserido na datagrid
'                        'significa que nao precisa de comparação
'                        Carrega_Selecao(cbsegunda.Text) 'entao carrega os campos para a datagrid
'                    End If 'final  datagrid <> 0
'                Else
'                    selecionado = 0 'caso nao esteja seleciona ele vai exibir um msg
'                    'para selecionar u m dia  a ser inserido
'                End If

'                If cbterca.Checked Then
'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbterca.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbterca.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbterca.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbterca.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbterca.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbterca.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbterca.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "1"
'                End If
'                If cbquarta.Checked Then

'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbquarta.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbquarta.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbquarta.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ", " & cbquarta.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbquarta.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbquarta.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbquarta.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "2"
'                End If
'                If cbquinta.Checked Then
'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbquinta.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbquinta.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbquinta.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbquinta.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbquinta.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbquinta.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbquinta.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "3"
'                End If
'                If cbsexta.Checked Then
'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbsexta.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbsexta.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbsexta.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbsexta.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbsexta.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbsexta.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbsexta.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "4"
'                End If
'                If cbsabado.Checked Then
'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbsabado.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbsabado.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbsabado.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbsabado.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbsabado.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbsabado.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbsabado.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "5"
'                End If
'                If cbdomingo.Checked Then
'                    If tabItens2.Rows.Count <> 0 Then
'                        psala = PrimeiraSala(txtnome.Text)
'                        If psala = "S" Then
'                            pdia = PrimeiraDia(cbdomingo.Text)
'                            If pdia = "S" Then
'                                ValidaHorario(horainicio, horafinal, cbdomingo.Text, txtnome.Text) 'validar horario para nao se baterem
'                                If recurso = 0 Then
'                                    Carrega_Selecao(cbdomingo.Text)
'                                Else
'                                    MessageBox.Show("Horário Está em Conflito Na Sala: " & txtnome.Text & ",  " & cbdomingo.Text)
'                                End If
'                            Else
'                                Carrega_Selecao(cbdomingo.Text)
'                            End If
'                        Else
'                            Carrega_Selecao(cbdomingo.Text)
'                        End If
'                    Else
'                        Carrega_Selecao(cbdomingo.Text)
'                    End If
'                Else
'                    selecionado = selecionado & "6"
'                End If
'                If selecionado = "0123456" Then
'                    MessageBox.Show("Favor selecionar um dia da semana")
'                Else
'                    Checkbox(False)
'                    txtobservacao.Text = ""
'                End If

'            End If
'        Catch ex As Exception
'            MessageBox.Show(ex.Message)
'        End Try
'    End Sub


'    Private Sub bremover_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bremover.Click
'        Dim indice As Integer
'        indice = -1
'        'percorrer todas as linhas selecionadas (1)
'        'para buscar o indice da linha selecionada
'        For Each linha As DataGridViewRow In dgcadastro.SelectedRows
'            If (Not linha.Cells("sala") Is Nothing) Then
'                indice = linha.Index
'            End If
'        Next
'        If (indice <> -1) Then
'            'remover          
'            If MessageBox.Show("Confirma exclusão ?", "", MessageBoxButtons.YesNo) = vbYes Then
'                tabItens.Rows.RemoveAt(indice)
'                tabItens.AcceptChanges()
'            End If

'        Else
'            MessageBox.Show("Selecione uma linha a ser removida")
'        End If
'        carrega_grid2()
'    End Sub
'    'Private Sub cbsala_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
'    '    Dim cod As Integer
'    '    Try
'    '        If cbsala.SelectedValue <> 0 Then
'    '            cod = cbsala.SelectedValue
'    '            CarregaSala(cod)
'    '            carrega_gridbanco()
'    '        End If
'    '    Catch ex As Exception
'    '    End Try
'    'End Sub

'    'Private Sub cbsala_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'    '    Dim cod As Integer
'    '    Try
'    '        If cbsala.SelectedValue <> 0 Then
'    '            cod = cbsala.SelectedValue
'    '            CarregaSala(cod)
'    '            carrega_gridbanco()
'    '        End If
'    '    Catch ex As Exception
'    '    End Try
'    'End Sub


'    Private Sub dgbanco_CellPainting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles dgbanco.CellPainting

'        If (e.RowIndex >= 0) Then
'            e.CellStyle.ForeColor = Color.Blue
'        End If

'    End Sub


'    Private Sub cbsala_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
'        e.Handled = True
'    End Sub

'    Private Sub cblocalizar_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cblocalizar.KeyPress
'        e.Handled = True
'    End Sub

'    Private Sub txtsala_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtsala.KeyPress
'        If e.KeyChar = Convert.ToChar(Keys.Return) Then
'            e.Handled = True
'            Dim codigo As Integer
'            Try
'                parametro = txtsala.Text
'                LocalizaSala.ShowDialog()
'                txtsala.Text = LocalizaSala.descricao
'                codigo = LocalizaSala.codigo
'                If txtsala.Text <> "" Then
'                    CarregaSala(codigo)
'                    carrega_gridbanco()
'                End If
'            Catch ex As Exception

'            End Try
'        End If
'        parametro = ""
'    End Sub

'    Private Sub bLocSala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLocSala.Click
'        Dim codigo As Integer
'        LocalizaSala.ShowDialog()
'        txtsala.Text = LocalizaSala.descricao
'        codigo = LocalizaSala.codigo
'        If txtsala.Text <> "" Then
'            CarregaSala(codigo)
'            carrega_gridbanco()
'        End If
'    End Sub

'End Class